home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1996 September
/
JCSM Shareware Collection (JCS Distribution) (September 1996).ISO
/
butility
/
orchis.zip
/
ORCHIS.PRO
< prev
next >
Wrap
Text File
|
1994-03-05
|
4KB
|
65 lines
/ss save def /d0 1000 dict def d0 begin 0 setlinecap 0 setlinejoin
newpath /pm matrix def /pcov false def /ppov false def /mfon
0 def /ocol 0 def /fibs false def /bd {bind def} bind def /so
{/cpov ppov def /ccov pcov def translate cpov {2 copy pm identmatrix
scale currentlinewidth dup 3 -1 roll idtransform add 2 div dup
dup setlinewidth 7 -1 roll add 6 1 roll 5 -1 roll add 4 1 roll}
if scale scar exch get exec cpov not {ppen [] 0 setdash} if ccov
{/tcol gcol def /ocol gcol def} {/tcol 0 def /gcol 0 def 0 scol}
ifelse reset} bd /scar [{pop pop} {exch pop 0 translate 90 rotate}
{translate 180 rotate} {pop 0 exch translate 270 rotate} {pop
pop [0 1 1 0 0 0] concat} {[1 0 0 -1 0 0] concat 0 exch neg translate
pop} {[0 -1 -1 0 0 0] concat neg exch neg exch translate} {pop
[-1 0 0 1 0 0] concat neg 0 translate}] def /wind {newpath moveto
dup 0 exch l2 exch 0 l2 neg 0 exch l2 clip newpath} bd /dod {3
1 roll def def} bd /fix {256 div} bd /ov0 {ccov not {/pcov false
def} if cpov not {/ppov false def} if} bd /ov1 {/pcov true def
cpov not {/ppov false def} if} bd /ov2 {ccov not {/pcov false
def} if /ppov true def} bd /ov3 {/pcov true def /ppov true def}
bd /pen {cpov {pop} {setlinewidth} ifelse} bd /ppen {cpov not
{.18 .18 pm defaultmatrix dtransform idtransform abs exch abs
2 copy ge {exch} if pop setlinewidth} if} bd /dash {/off exch
def /on exch def cpov not {on 0 eq {[] 0 setdash} {[on off] 0
setdash} ifelse} if} bd /cola [{0 0 0} {1 0 0} {0 0 1} {1 1 0}
{0 1 0} {.5 .25 0} {1 0 1} {0 1 1} {1 .5 0} {.75 1 0} {.75 .75
.75} {1 .75 1} {.5 0 1} {1 .75 0} {.5 .75 0} {1 1 1}] def /scol
{fibs {pop} {cola exch get exec setrgbcolor} ifelse} bd /apco
{dup 15 ne ccov and {pop ocol} if} bd /gc {apco dup /gcol exch
def scol} bd /tc {apco /tcol exch def} bd /ts {/bsiz exch def
/ysiz exch def /xsiz exch def} bd /ta {/tall exch def} bd /tj
{/tjus exch def} bd /tr {/trot exch def} bd /saves {gsave gcol
tcol ocol dfon xsiz ysiz bsiz tjus trot mfon tall cpov ppov ccov
pcov fibs 16 array astore} bd /rests {aload pop /fibs exch def
/pcov exch def /ccov exch def /ppov exch def /cpov exch def /tall
exch def /mfon exch def /trot exch def /tjus exch def /bsiz exch
def /ysiz exch def /xsiz exch def /dfon exch def /ocol exch def
/tcol exch def /gcol exch def grestore} bd /reset {/trot 0 def
/tall 0 def /tjus 0 def /dfon 0 def /xsiz 0 def /ysiz 0 def /bsiz
0 def} bd /m1 {moveto} bd /m2 {currentlinewidth 2.83 div dup
3 1 roll add 3 1 roll add exch moveto} bd /l2 {rlineto} bd /FONTS
[ /Times-Roman /Times-Italic /Times-Bold /Times-BoldItalic /Helvetica
/Helvetica-Oblique /Helvetica-Bold /Helvetica-BoldOblique /Bookman-Light
/Bookman-LightItalic /Bookman-Demi /Bookman-DemiItalic /Palatino-Roman
/Palatino-Italic /Palatino-Bold /Palatino-BoldItalic /AvantGarde-Book
/AvantGarde-BookOblique /AvantGarde-Demi /AvantGarde-DemiOblique
/ZapfChancery-MediumItalic /Symbol ] def /gfon {/rot exch def
findfont /fon exch def matrix scale tart rot get matrix concatmatrix
fon exch makefont} bd /tart [[1 0 0 -1 0 0] [0 1 1 0 0 0] [-1
0 0 1 0 0] [0 -1 -1 0 0 0] [0 1 -1 0 0 0] [1 0 0 1 0 0] [0 -1
1 0 0 0] [-1 0 0 -1 0 0]] def /font {/dfon exch def /mfon xsiz
ysiz FONTS dfon get trot gfon def} bd /text {tcol scol /str exch
def /plen exch def /box exch def /y4 exch def /x4 exch def mfon
setfont /stln str stringwidth add abs def /xOff /esp stln plen
box just dod /yOff /xOff xOff box talc dod xOff yOff rtex y4
add exch x4 add exch moveto esp 0 eq {str show} {/chan str length
def chan 1 gt { esp chan 1 sub div 0 rtex str ashow} {str show}
ifelse} ifelse gcol scol} bd /just {/boxS exch def /pepL exch
def /strL exch def jtab tjus get exec} bd /jtab [ {0 boxS strL
sub 2 div} {0 0} {0 boxS strL sub} {boxS strL sub 0} {pepL strL
sub boxS pepL sub 2 div} {pepL strL sub 0} {pepL strL sub boxS
pepL sub} {boxS strL sub 0}] bd /talc {allht tall 4 idiv get
exec allvt tall 4 mod get exec} bd /allht [ {pop} {2 div sub}
{sub}] def /allvt [ {bsiz} {bsiz ysiz 2 div sub} {bsiz ysiz sub}
{0}] def /rtex {cart trot get exec} bd /cart [{} {neg exch} {neg
exch neg exch} {exch neg} {exch} {neg} {neg exch neg} {exch neg
exch}] def